capture program drop mylincom_2sls
program define mylincom_2sls
	local nothing=" "		
	lincom eval_eco-eval_sant
	if r(p)<=0.1 {
		if r(p)<=0.05 {
			if r(p)<=0.01 {
				estadd local diffeh = trim("`: display %10.3f r(estimate)'***")
			}
			else {
				estadd local diffeh = trim("`: display %10.3f r(estimate)'**")
			}
		}
		else {
			estadd local diffeh = trim("`: display %10.3f r(estimate)'*")	
		}
	}
	else { 
		estadd local diffeh = trim("`: display %10.3f r(estimate)'")
	}
	local diffehsd=r(se)
	estadd scalar diffehsd `diffehsd'
end 
